inst/extdata/MSCR596_-_Advanced_Data_Management_in_R/06 Branch Loop/customTests.R

In bbbruce/admswirl: Swirl Exercises for Advanced Data Management in R

source(system.file("extdata/commonCustomTests.R", package = "admswirl"))

test_ifelse <- function() {
  print("x is less than or equal to 10")
}

test_ifelseelse <- function() {
  print("x is greater than 4")
}

test_ifif <- function() {
  print("x is greater than 4")
}

test_center <- function() {
  TRUE
}